inherited frmBuscaAvancadaRevista: TfrmBuscaAvancadaRevista
  Caption = 'Glorious : Busca Avan'#231'ada'
  PixelsPerInch = 96
  TextHeight = 13
  inherited DBGridBusca: TDBGrid
    Columns = <
      item
        Expanded = False
        FieldName = 'Codigo'
        Title.Caption = 'C'#243'digo'
        Width = 99
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Descricao'
        Title.Caption = 'Descri'#231#227'o'
        Width = 339
        Visible = True
      end>
  end
  inherited pnlSuperior: TPanel
    inherited lblTituloForm: TLabel
      Width = 230
      Caption = 'Busca Avan'#231'ada Revista'
      ExplicitWidth = 230
    end
  end
  inherited qrBusca: TSQLQuery
    SQL.Strings = (
      'SELECT idRevista AS Codigo, Titulo AS Descricao FROM Revista')
  end
  inherited cdsBusca: TClientDataSet
    Active = True
  end
  inherited popupRemover: TPopupMenu
    inherited Remover1: TMenuItem
      OnClick = Remover1Click
    end
  end
  inherited qrRemover: TSQLQuery
    Params = <
      item
        DataType = ftInteger
        Name = 'idRevista'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'DELETE FROM Revista WHERE idRevista = :idRevista')
  end
end
